home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / FarmCow.Dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  637 b   |  26 lines
  1. on exitFrame
  2.   repeat with G = 12 to 16
  3.     set the visible of sprite G to 0
  4.   end repeat
  5.   repeat with G = 6 to 10
  6.     set the visible of sprite G to 1
  7.   end repeat
  8.   puppetSound(0)
  9.   pause()
  10. end
  11.  
  12. on mouseUp
  13.   global follow, snap, lastClickOn, homeV, homeH, snapH, snapV
  14.   set follow to 0
  15.   if ((lastClickOn - 6) > 0) and ((lastClickOn - 6) < 49) then
  16.     set the visible of sprite (lastClickOn - 6) to 1
  17.     set the visible of sprite lastClickOn to 0
  18.     set the locH of sprite lastClickOn to homeH
  19.     set the locV of sprite lastClickOn to homeV
  20.     puppetSound("swiper.s")
  21.     updateStage()
  22.     wait(20)
  23.   end if
  24.   go(the frame)
  25. end
  26.